﻿Public Class Form1

    Dim i As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim random As Short

        Randomize()

        random = Rand(1, 5)

        Select Case random

            Case Is = 1
                TextBox1.Text = "S-v-e-n-G-D-K"
            Case Is = 2
                TextBox1.Text = "K-D-G-n-e-v-S"
            Case Is = 3
                TextBox1.Text = "S-v-e-n-K-D-G"
            Case Is = 4
                TextBox1.Text = "n-e-v-S-G-D-K"
            Case Is = 5
                TextBox1.Text = "G-D-K-S-v-e-n"
        End Select
    End Sub

    Public Function Rand(ByVal Low As Integer, ByVal High As Integer) As Integer
        Rand = Int((High - Low + 1) * Rnd()) + Low
    End Function

End Class
